﻿' ----------------------------------------------------------------------------------
' Microsoft Developer & Platform Evangelism
' 
' Copyright (c) Microsoft Corporation. All rights reserved.
' 
' THIS CODE AND INFORMATION ARE PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND, 
' EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE IMPLIED WARRANTIES 
' OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
' ----------------------------------------------------------------------------------
' The example companies, organizations, products, domain names,
' e-mail addresses, logos, people, places, and events depicted
' herein are fictitious.  No association with any real company,
' organization, product, domain name, email address, logo, person,
' places, or events is intended or should be inferred.
' ----------------------------------------------------------------------------------

Namespace Exceptions
    Public Class HttpWebException
        Inherits Exception
        Public Sub New()
        End Sub

        Public Sub New(ByVal message As String)
            MyBase.New(message)
        End Sub

        Public Sub New(ByVal message As String, ByVal innerException As Exception)
            MyBase.New(message, innerException)
        End Sub

        Public Sub New(ByVal message As String, ByVal statusCode As HttpStatusCode)
            Me.New(message, statusCode, Nothing)
        End Sub

        Public Sub New(ByVal message As String, ByVal statusCode As HttpStatusCode, ByVal innerException As Exception)
            MyBase.New(message, innerException)
            Me.StatusCode = statusCode
        End Sub

        Private privateStatusCode As HttpStatusCode
        Public Property StatusCode() As HttpStatusCode
            Get
                Return privateStatusCode
            End Get
            Private Set(ByVal value As HttpStatusCode)
                privateStatusCode = value
            End Set
        End Property
    End Class
End Namespace